global gGusherObj, gSaturnObj, gSaucerObj, gGuyObj
on startMovie
global flushActive
set flushActive to 0
set the mouseDownScript to EMPTY
set the mouseUpScript to EMPTY
set the timeoutScript to EMPTY
end
on stopMovie
global gPathDelim, gInitialColorDepth
if not IsShockWave() then
if the machineType <> 256 then
if not IsProj() then
closeXLib(the pathName & "JOHNNY.XOBJ")
end if
end if
end if
end
on IsProj
return 1
end
on IsShockWave
return 0
end
on newGame
initObjects()
resetCursor()
end
on initGame
cursor(4)
initGlobals()
if not IsShockWave() then
if the machineType = 256 then
set gPathDelim to "\"
else
set gPathDelim to ":"
if not IsProj() then
openXLib(the pathName & "JOHNNY.XOBJ")
end if
end if
end if
resetCursor()
end
on initGlobals
global gInitialColorDepth, gInteruptFlag, gBlank, gFirstTime
set gFirstTime to 1
set gInitialColorDepth to 0
set gInteruptFlag to 0
set gBlank to 21
end
on initObjects
set gGusherObj to new(script "gusherManager")
set gSaturnObj to new(script "SaturnObj")
set gSaucerObj to new(script "FlyingSaucerObj")
set gGuyObj to new(script "JumpingGuyObj")
end
on slide chan, H2, V2, steps, waitTime
set deltaH to the locH of sprite chan - H2
set deltaV to the locV of sprite chan - V2
repeat with incr = 1 to steps
set theTime to the timer
set the locH of sprite chan to H2 + (deltaH * (steps - incr) / steps)
set the locV of sprite chan to V2 + (deltaV * (steps - incr) / steps)
updateScreen()
updateStage()
repeat while the timer < (theTime + waitTime)
updateScreen()
end repeat
end repeat
end
on slideAnim chan, H2, V2, steps, waitTime, memList
set deltaH to the locH of sprite chan - H2
set deltaV to the locV of sprite chan - V2
set counter to 1
repeat with incr = 1 to steps
set theTime to the timer
set the locH of sprite chan to H2 + (deltaH * (steps - incr) / steps)
set the locV of sprite chan to V2 + (deltaV * (steps - incr) / steps)
set the memberNum of sprite chan to getAt(memList, counter)
set counter to counter + 1
if counter = (count(memList) + 1) then
set counter to 1
end if
updateScreen()
updateStage()
repeat while the timer < (theTime + waitTime)
updateScreen()
updateStage()
end repeat
end repeat
end
on resetCursor
cursor(200)
cursor([2, 3])
end
on updateScreen
UpdateSaturn()
UpdateAmbient()
UpdateGuy()
end
on UpdateAmbient
if not soundBusy(1) then
puppetSnd(1, "GusherAmbient")
end if
end
on UpdateSaturn
mUpdateSaturn(gSaturnObj)
end
on UpdateSaucer
if the mouseDown then
mUpdateSaucer(gSaucerObj)
end if
end
on UpdateGuy
mUpdateGuy(gGuyObj)
end
on resetGame
go(the frame - 3)
Dissolvetransition()
updateStage()
end
on testIfNear num1, num2, range
if abs(num1 - num2) <= range then
return 1
else
return 0
end if
end
on Interupt
global gInteruptFlag
if gInteruptFlag then
set gInteruptFlag to 0
return 1
else
return 0
end if
end
on SendMD
global gMDList
set CstNum to the mouseCast
if getPos(gMDList, CstNum) then
mouseUp(script CstNum)
end if
end
on TFCIL
global gMDList
set CstNum to the mouseCast
if getPos(gMDList, CstNum) then
return 1
else
return 0
end if
end
on AnimLin chan, soundName, castList, waitTime, interuptFlag
global gInteruptFlag
puppetSnd(soundName)
updateStage()
set exitFlag to 0
repeat while soundBusy(1)
repeat with theCastNum in castList
set theTime to the timer + waitTime
set the castNum of sprite chan to theCastNum
UStage(theTime)
if not soundBusy(1) then
exit repeat
end if
if the mouseDown and interuptFlag then
if TFCIL() then
set exitFlag to 1
exit repeat
end if
end if
end repeat
if exitFlag then
exit repeat
end if
updateTimer()
end repeat
sound stop 1
if exitFlag then
set gInteruptFlag to 1
end if
end
on AnimLinNL chan, soundName, castList, waitTime, interuptSound, interuptFlag
global gAntManagerObj, gInteruptFlag
puppetSnd(1, soundName)
updateStage()
set exitFlag to 0
repeat with theCastNum in castList
set theTime to the timer + waitTime
set the castNum of sprite chan to theCastNum
UStage(theTime)
if the mouseDown and interuptFlag then
if TFCIL() then
set exitFlag to 1
exit repeat
end if
end if
if the pAntPresent of gAntManagerObj then
updateAnt()
end if
updateSun()
updateAnt()
end repeat
if interuptSound then
sound stop 1
end if
if exitFlag then
set gInteruptFlag to 1
end if
end
on AnimRand chan, soundName, castList, waitTime, interuptFlag
global gInteruptFlag
puppetSnd(soundName)
updateStage()
set exitFlag to 0
repeat while soundBusy(1)
set animList to Shuffle(castList)
repeat with theCastNum in castList
set theTime to the timer + Randomize(waitTime, 3)
set the castNum of sprite chan to theCastNum
UStage(theTime)
if not soundBusy(1) then
exit repeat
end if
if the mouseDown and interuptFlag then
if TFCIL() then
set exitFlag to 1
exit repeat
end if
end if
end repeat
if exitFlag then
exit repeat
end if
updateTimer()
end repeat
sound stop 1
if exitFlag then
set gInteruptFlag to 1
end if
end
on Shuffle startList
set shuffleList to []
set copyList to value(string(startList))
set listSize to count(startList)
repeat with z = 1 to listSize
set index to random(count(copyList))
add(shuffleList, getAt(copyList, index))
deleteAt(copyList, index)
end repeat
return shuffleList
end
on MaybeReset
if IsShockWave() or (the machineType = 256) then
if the timeoutScript = "ResetEvents" then
ResetEvents()
end if
end if
end
on RChance chance
if RandFloat() < chance then
return 1
else
return 0
end if
end
on RandFloat
return random(1000) / 1000.0
end
on LProb number, val1, prob1, val2, prob2
if val1 <> val2 then
set chance to ((prob1 - prob2) * (number - val2) / (val1 - val2)) + prob2
if chance <= 0 then
return 0
else
if chance >= 1 then
return 1
else
if RandFloat() <= chance then
return 1
else
return 0
end if
end if
end if
else
return 0
end if
end
on PR
global aFighterList
set myScore to the score of getAt(aFighterList, 1)
set hisScore to the score of getAt(aFighterList, 2)
set tvalue to 2 * (myScore - hisScore) / 100.0
if tvalue <= 0.29999999999999999 then
set value to 0.29999999999999999
end if
return value
end
on setPuppets theList, state
repeat with theChan in theList
puppetSprite(theChan, state)
set the stretch of sprite theChan to 0
end repeat
end
on setStretch theList, state
repeat with theChan in theList
set the stretch of sprite theChan to 0
end repeat
end
on puppetSnd chan, sound
if (chan > 4) or stringp(chan) then
if chan <> EMPTY then
puppetSound(1, chan)
end if
else
if stringp(sound) then
if sound <> EMPTY then
puppetSound(chan, sound)
end if
else
if sound <> 0 then
puppetSound(chan, sound)
end if
end if
end if
end
on SwitchCast chan1, chan2
set hold1 to the castNum of sprite chan1
set the castNum of sprite chan1 to the castNum of sprite chan2
set the castNum of sprite chan2 to hold1
end
on setCstLoc chan, CstNum, locP
set the memberNum of sprite chan to CstNum
set the loc of sprite chan to locP
end
on Randomize center, range
return center + random(range) - (range / 2)
end
on wait waitTicks
set theTime to the timer + waitTicks
repeat while the timer < theTime
end repeat
end
on UStage theTime
updateStage()
repeat while the timer < theTime
end repeat
end
on Dissolvetransition
if not IsShockWave() then
if the machineType <> 256 then
puppetTransition(51, 2)
else
puppetTransition(24, 2, 12)
end if
end if
end
on sfo chan, fadeOutTime
set startLevel to the volume of sound chan
set theEndTime to the timer + fadeOutTime
repeat while the timer <= theEndTime
set theTimeLeft to theEndTime - the timer
set thePercent to theTimeLeft / (fadeOutTime * 1.0)
set the volume of sound chan to integer(startLevel * thePercent)
end repeat
set the volume of sound chan to 0
sound stop chan
if chan = 1 then
puppetSound(0)
end if
set the volume of sound chan to startLevel
end
on sfd chan, fadeTime, endLevel
set startLevel to the volume of sound chan
set delta to startLevel - endLevel
set theEndTime to the timer + fadeTime
repeat while the timer <= theEndTime
set theTimeLeft to theEndTime - the timer
set thePercent to theTimeLeft / (fadeTime * 1.0)
set the volume of sound chan to endLevel + integer(delta * thePercent)
end repeat
set the volume of sound chan to endLevel
end
on Flush
global gFlush
if (the machineType <> 256) and not IsShockWave() then
set gFlush to Johnny(mnew)
gFlush(mFlush)
gFlush(mdispose)
else
PCFlush()
end if
end
on PCFlush
global oldkeyD, oldMd, oldMu, flushActive, oldTO, oldTL
if flushActive then
set the trace to 0
exit
end if
set oldkeyD to the keyDownScript
set oldMd to the mouseDownScript
set oldMu to the mouseUpScript
set oldTO to the timeoutScript
set oldTL to the timeoutLength
set the keyDownScript to "dontPassEvent"
set the mouseDownScript to "dontPassEvent"
set the mouseUpScript to "dontPassEvent"
set the timeoutLength to 5
set the timeoutScript to "ResetEvents"
set flushActive to 1
end
on ResetEvents
global oldkeyD, oldMd, oldMu, flushActive, oldTO, oldTL
set the keyDownScript to oldkeyD
if oldMd = "DontPassEvent" then
set the mouseDownScript to EMPTY
else
set the mouseDownScript to oldMd
end if
if oldMu = "DontPassEvent" then
set the mouseUpScript to EMPTY
else
set the mouseUpScript to oldMu
end if
set the timeoutScript to oldTO
set the timeoutLength to oldTL
set flushActive to 0
end
on USRL theList, newValue
set tempList to []
set listSize to count(theList)
repeat with zCount = 1 to listSize - 1
add(tempList, getAt(theList, zCount + 1))
end repeat
add(tempList, newValue)
return tempList
end
on Dist PtA, PtB
set vector to PtB - PtA
set distance to sqrt(listSum(vector * vector))
return distance
end
on listSum theList
set sum to 0
repeat with entry in theList
if not (integerp(entry) or floatp(entry)) then
set entry to 0
end if
set sum to sum + entry
end repeat
return sum
end
on envTest
global gPathDelim, gInitialColorDepth
if the machineType <> 256 then
if the soundLevel = 0 then
alert("The sound level must be set above 0 for Bob and Weave to Box. The sound level is being set to 5.")
set the soundLevel to 5
end if
if IsProj() then
if the colorDepth <> 8 then
alert("Your monitor is being set to 8 bit to optimize performance. Your monitor will automatically be set back to " & the colorDepth & " when you quit.")
 - 2001.iso/Fruity/GUSHERS.DXR/00003.png){kind=link}